home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / TCE-SQ.DMS / in.adf / Install ScanQuix < prev    next >
Encoding:
Text File  |  1995-08-21  |  4.7 KB  |  163 lines
  1. ; This is the ScanQuix/EpsonGT install script
  2. ; $VER: 1.0 (21.08.95) © by Andreas Günther
  3.  
  4. (transcript "ScanQuix installation:")
  5.  
  6.  
  7. (set install_sq
  8.   (askbool
  9.     (prompt "\n\n\n\nWhat Operation do you want to perform ?")
  10.     (help "By choosing \"Install ScanQuix\", you can install ScanQuix and the scanner driver(s) on your computer.\nWith the choice \"Remove Installation\", an existing installation of ScanQuix and the scanner drivers can be entirely removed from your System.")
  11.     (choices "Install ScanQuix" "Remove Installation")
  12.     (default 1)
  13.   )
  14. )
  15.  
  16. (if install_sq
  17.  (
  18.   (set sq_path
  19.     (askdir
  20.       (prompt "Where do you want the \"ScanQuix\" directory to be created ?")
  21.       (help @askdir-help)
  22.       (default @default-dest)
  23.     )
  24.   )
  25.  
  26.  
  27.   ; install ScanQuix
  28.  
  29.   (copyfiles
  30.     (prompt "\n\n\nCopying ScanQuix")
  31.     (help @copyfiles-help)
  32.     (source "ScanQuix:ScanQuix")
  33.     (dest (tackon sq_path "ScanQuix"))
  34.     (all)
  35.     (infos)
  36.     (confirm)
  37.   )
  38.  
  39.  
  40.   ; install demo pictures 
  41.  
  42.  
  43.  
  44.   ; install driver
  45.  
  46.   (copyfiles
  47.     (prompt "Copying driver for Epson-GT") 
  48.     (help @copyfiles-help)
  49.     (source "ScanQuix:ScannerDrivers/EpsonGT")
  50.     (dest "DEVS:ScannerDrivers")
  51.     (infos)
  52.     (confirm)
  53.   )
  54.  
  55.   (if (exists "LOCALE:" (noreq))
  56.     (
  57.      ; locale is installed, so copy the catalog stuff
  58.       (copyfiles
  59.           (prompt "\n\n\nCopying catalog files.")
  60.         (help @copyfiles-help)
  61.         (source "ScanQuix:ScannerDrivers/catalogs/deutsch/EpsonGT.catalog")
  62.         (dest "LOCALE:Catalogs/deutsch/ScannerDrivers")
  63.         (confirm)
  64.       )
  65.     )
  66.   )
  67.  
  68.   (set old_user (user 1))   ; always ask
  69.  
  70.   (set scsi
  71.     (askbool
  72.       (prompt "\n\n\n\nHow is your Scanner connected to your Amiga ?\n(SCSI or parallel port)")
  73.       (help "Please select the Interface, to which the Scanner is connected. There are two possibilities:\n1.) SCSI-Interface\n2.) The internal parallel port of the Amiga. In this case, you must use a special cable as described in the manual !")
  74.       (choices "SCSI" "Parallel Port")
  75.       (default 1)
  76.     )
  77.   )
  78.  
  79.   (if scsi
  80.     (
  81.       (set devname
  82.         (askstring
  83.           (prompt "\nPlease enter the name of the SCSI-device for your scanner:")
  84.           (help "You can find the correct name of the \"device\" in the documentation of your SCSI interface card.\nPossible names could be \"scsi.device\", \"squirrelscsi.device\", etc...")
  85.           (default "scsi.device")
  86.         )
  87.       )
  88.  
  89.       (set unitnr
  90.         (asknumber
  91.           (prompt "\nPlease enter the SCSI unit number of your scanner:")
  92.           (help "You have to type in the correct unit number for your SCSI-device so that the device can address your Scanner correctly.\nUsually, this is the SCSI-ID of the Scanner. For more information about the unit number, consult the documentation of your SCSI-Interface.")
  93.           (default 5)
  94.         )
  95.       )
  96.  
  97.       (tooltype
  98.         (prompt "Installing device name and unit number")
  99.         (help "Modifying the tooltypes of the Epson scanner driver to the given values.")
  100.         (dest "DEVS:ScannerDrivers/EpsonGT")
  101.         (settooltype "DEVICE" devname)
  102.         (settooltype "UNIT" (cat unitnr))
  103.         (confirm)
  104.       )
  105.     )
  106.     ( ; else parallel
  107.       (tooltype
  108.         (prompt "Defining interface as parallel")
  109.         (help "Modifying the tooltypes of the Epson scanner driver to use the parallel port.")
  110.         (dest "DEVS:ScannerDrivers/EpsonGT")
  111.         (settooltype "PARALLEL" "")
  112.         (confirm)
  113.       )
  114.     )
  115.   )
  116.  
  117.   (user old_user)
  118.  
  119.  )
  120.  (  ; else uninstall
  121.   (if (askbool
  122.         (prompt "\n\n\n\nDo you really want to remove all scanner drivers ?\n\nAll settings will be lost !")
  123.         (help "You can reinstall your scanner drivers  at any time, but you will loose the current settings !\n\nYou can remove ScanQuix by dragging its icon into the trahscan.")
  124.         (default 0)
  125.       )
  126.  
  127.     (
  128.      ; uninstall procedure
  129.  
  130.       (run "delete DEVS:ScannerDrivers all"
  131.         (prompt "\n\n\nDeleting scanner drivers.")
  132.         (help "You can reinstall the scanner drivers at any time")
  133.         (confirm)
  134.       )
  135.  
  136.       (delete "DEVS:ScannerDrivers.info"
  137.         (prompt "\n\n\nDeleting scanner drivers.")
  138.         (help "You can reinstall your scanner drivers at any time")
  139.         (confirm)
  140.       )
  141.  
  142.       (run "delete LOCALE:Catalogs/deutsch/ScannerDrivers all"
  143.         (prompt "\n\n\nDeleting catalog files.")
  144.         (help "You can reinstall your scanner drivers at any time")
  145.         (confirm)
  146.       )
  147.  
  148.       (delete "ENVARC:EpsonGT.prefs"
  149.         (prompt "\n\n\nDeleting settings.")
  150.         (help "You can reinstall your scanner drivers at any time")
  151.         (confirm)
  152.       )
  153.  
  154.       (delete "ENV:EpsonGT.prefs"
  155.         (prompt "\n\n\nDeleting settings.")
  156.         (help "You can reinstall your scanner drivers at any time")
  157.         (confirm)
  158.       )
  159.     )
  160.   )
  161.  )
  162. )
  163.